- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
Unit Web;
interface
uses System, System.Drawing, System.Windows.Forms;
var f: Form;
type
WebBro = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Web.WebBro.resources}
button1: Button;
webBrowser1: WebBrowser;
{$include Web.WebBro.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
Procedure FindForm();
begin
var i:=0;
while i < Application.OpenForms.Count do
begin
f := Application.OpenForms.Item[i];
if f.Name = 'TwiGen_News' then exit
else inc(i);
end;
end;
procedure WebBro.button1_Click(sender: Object; e: EventArgs);
begin
WebBro.ActiveForm.Hide();
FindForm;
f.Show();
end;
end.
//----------------
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms, Web;
var NewsForm: WebBro;
type
TwiGen_News = class(Form)
procedure News_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.TwiGen_News.resources}
LogIn: Button;
News: Button;
Reg: Button;
{$include Unit1.TwiGen_News.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
procedure TwiGen_News.News_Click(sender: Object; e: EventArgs);
begin
TwiGen_News.ActiveForm.Hide();
NewsForm := new WebBro;
NewsForm.Show;
end;
end.
Друг писал, но мне он говорил, что переписывал говнокод.
Pascal ABC.NET.
Janycz 08.06.2015 20:00 # +2
Stertor 08.06.2015 20:04 # +1
до такого даже я не извращался. Каков смысл сего кода??
Janycz 08.06.2015 20:09 # 0
Stertor 08.06.2015 22:05 # +1
kegdan 08.06.2015 20:10 # −2
Pyriandr 09.06.2015 00:52 # 0
guest 09.06.2015 01:28 # 0
HIV 29.05.2020 13:59 # 0
guest 12.03.2016 13:33 # 0