Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2003
Sage das doch gleich. :lol:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 32) and (ssCtrl in Shift) then
begin
ComboBox1.Top := (Sender As TEdit).Top + (Sender As TEdit).Height + 10;
ComboBox1.Left := (Sender As TEdit).Left;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2003
*ggg*
Wo Du die ComboBox hinsetzt ist dir Überlassen. Das ändert ja nix an dem Code oben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
18. Nov 2003
Hai Micha,
eine Möglichkeit wäre z.B. eine Combobox genau über das Edit zu legen und dann mit diesem Code spielen:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Visible := False;
end;