OK,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if tbutton(sender).tag =0 then
for I := 1 to 3 do
begin
edit1.text:='9999';
// memo1.lines.Add(inttostr(i));
edit1.text:=inttostr(i)
end
else
for I := 3 downto 1 do
begin
edit1.text:='9999';
// memo1.lines.Add(inttostr(i));
edit1.text:=inttostr(i);
end;
memo1.lines.Add('_____');
if tbutton(sender).tag=0 then tbutton(sender).tag:=1 else tbutton(sender).tag:=0;
end;
So geht das dann erst einmal - kann man nun delphi zwingen diese Prüfung zu unterlassen?
oder so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
ereignis:tereignishprozedure// ???? fällt mir grad' nicht ein, welche var das sein müßte
begin
if tbutton(sender).tag =0 then
for I := 1 to 3 do
begin
ereignis:=edit1.onchange;
edit1.onchange:=nil;
edit1.text:='9999';
edit1.onchange:=ereignis;
// memo1.lines.Add(inttostr(i));
edit1.text:=inttostr(i)
end
else ....
end;
memo1.lines.Add('_____');
if tbutton(sender).tag=0 then tbutton(sender).tag:=1 else tbutton(sender).tag:=0;
end;
... sieht sehr masochistisch aus.
oder
procedure TControl.SetText(const Value: TCaption);
begin
if GetText <> Value then
...
end;
überschreiben???
MfG Uwe