Hallo Meta777,
mach es doch so:
- Neue Anwendung
- Alle Componenten die Du benötigst und deren Sources Du hast auf die Form
- Alle Einstellungen in Object-Inspector vormehmen
dann sieht es so aus:
Delphi-Quellcode:
...
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
lbPath : TLabel;
cboPath : TComboBox;
sbtnPathSearch: TSpeedButton;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
...
Nun, wollen wir die ComboBox genauer untersuchen.
das geht so:
- die Zeile mit der entsprechnden Compnetendeklaration, makieren und kopiere
- anschließend, die entsprechnde Componete von der Form löschen
- die Componentendeklaration im
private Bereich einfügen
Delphi-Quellcode:
...
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
lbPath : TLabel;
sbtnPathSearch: TSpeedButton;
private
{ Private-Deklarationen }
cboPath : TComboBox;
public
{ Public-Deklarationen }
end;
...
Nun noch ein
Create und ein
Destroy Ereignis deklarieren.
Und unsere ComboBox erstellen:
Delphi-Quellcode:
...
procedure TForm1.FormCreate(Sender: TObject);
begin
cboPath := TComboBox.Create(Form1);
with cboPath do
begin
Left := 62;
Top := 14;
Width := 145;
Height := 21;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
cboPath.Free
end;
...
So, nun kannst Du den Breakpoint bein erstellen der ComboBox setzen.
Gruß