hat das was vllt. damit zu tun,
dass es sich um einen Frame handelt, auf dem der Button
erstellt wird.?
aber in der anderen
Unit ist es genauso.
Es handelt sich
IMHO aber um eine Methode:
Delphi-Quellcode:
procedure Tpans.artbutClick(Sender: TObject);
var sztag:Integer;
begin
if Sender
is TXiButton
then begin sztag:=TComponent(Sender).Tag;
end;
with buttonquer
do begin
Close;
SQL.Clear;
SQL.Text:='
SELECT * FROM buttons WHERE id=:TG1';
Prepared:=True;
Parameters.FindParam('
TG1').Value:=sztag;
Open;
end;
end;
onClick:=artbutClick(Sender);