also folgender Code funzt bei mir
1:
2:
3:
4:
5:
6:
7:
8:
9:
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:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if not (Sender is TButton) then Exit;
with TButton(Sender) do begin
i := GetWindowLong(Handle, GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE, i or BS_MULTILINE);
Caption :=
'B' + #13#10 +
'e' + #13#10 +
'e' + #13#10 +
'n' + #13#10 +
'd' + #13#10 +
'e' + #13#10 +
'n';
Width := 50;
Height := 150;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button1Click(button1);
end;
end. |
Ansonsten nimm einem Timer.
Den stellt Du auf Intervall 1 und sorgt Dafür, daß er nur einmal
aufgerufen wird und dort erledigst Du das gewünschte.
Ist aber nicht die elegante Art so was zu lösen.
Wenn man alten Code mit solchen Schweinereien restaurieren muß (und das muß ich zum Teil) ist man arm dran.
