Komponenten testen / debuggen

[Alter Mann]

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ß