Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
Der Code geht nicht, habs ausprobiert
Form4.show muß in Form1.speedbutton9click aufgerufen werden, sonst erscheint nix
wie wärs mit
const Konstante1: string= 'Neuer Eintrag' ;
Konstante2 :string='Eintrag ändern';
procedure TForm1.SpeedButton9Click(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
Der Code enthält noch mehr, daher wollte ich das Ganze nicht in das Speedbutton9click oder Speedbutton11click
reinschreiben.
Es gäbe noch die Möglichkeit
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
Unit4.Form4.Caption:='Eintrag ändern';
Unit4.Form4.Show;
end;
procedure TForm4.FormShow(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
Hab ich gemacht
ShowMessage(Sender.ClassName) := TForm4
Unit4.Form4.FormShow(Unit1.Form1.speedbutton9);
Das funktioniert nicht Fehler : zuviele Parameter
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
so.........
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
Unit4.Form4.Show;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
Fehlermeldung kommt keine , der geht einfach darüber hinweg,ohne dass er die Caption übernimmt.
Ist da was falsch am Code ????
Ich habs auch schon bei Form4.Create reingeschrieben, ist aber dasselbe
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Thomas F,
4. Feb 2009
Ich wollte die Caption eines Formulars vom Sender abhängig machen
Ich weiss nicht, warum dieser Code nicht funktioniert
procedure TForm4.FormShow(Sender: TObject);
begin
if Sender = Unit1.Form1.speedbutton9
then Form4.Caption := ' Eintrag ändern';//Unit4
if Sender = Unit1.Form1.Speedbutton11