Code: Alles auswählen
procedure TForm1.FuseTabBurnButtonClick(Sender: TObject);
begin
if Sender is TButton then begin
ShowMessage('Button ' + TButton(Sender).Tag.ToString + ' gedrückt');
end;
end;
Code: Alles auswählen
procedure TForm1.FuseTabBurnButtonClick(Sender: TObject);
begin
if Sender is TButton then begin
ShowMessage('Button ' + TButton(Sender).Tag.ToString + ' gedrückt');
end;
end;
Code: Alles auswählen
procedure TForm_AVR_Fuse_Burn.Button_BurnClick(Sender: TObject);
begin
if ssCtrl in GetKeyShiftState then begin
ShowMessage('brennen');
end;
end;