Lave komponent?

Den bedste tutorial (som jeg kender til) er den der følger med Delphi's hjælpefil! Der er en step-by-step tutorial (artikel - kald det hvad du vil)!

Dette lager en Memo, viser den i 2 skunder og frigjør den:

var
  // bruker StdCtrls
  M: TMemo;
begin
  M := TMemo.Create(Form1);
  with M do
  begin
    Visible := False;
    Parent := Form1;
    Name := 'NewMemo';
    Font.Color := clRed;
    Font.Name := 'Verdana';
    Color := clBlack;
    Lines.Text := 'En ny memo!';
    Width := 300;
    Height := 200;
    Left := (Form1.ClientWidth - Width) div 2;
    Top := (Form1.ClientHeight - Height) div 2;
    Show;
    Application.ProcessMessages;
    Sleep(2000);
    Free;
  end;

Du kan også bruke dette:

var
  // bruker StdCtrls
  M: TMemo;

procedure TForm1.FormCreate(Sender: TObject);
begin
  M := TMemo.Create(Form1);
  with M do
  begin
    Parent := Form1;
    Name := 'NewMemo';
    Font.Color := clRed;
    Font.Name := 'Verdana';
    Color := clBlack;
    Lines.Text := 'En ny memo!';
    Width := 300;
    Height := 200;
    Left := (Form1.ClientWidth - M.Width) div 2;
    Top := (Form1.ClientHeight - M.Height) div 2;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  M.Free;
end;

Mvh
DiZpel

[Redigeret d. 21/04-04 19:51:29 af DiZpel]

Det er i store træk det samme som for en ikke visuel komponent, du skal nedarve fra TCustomControl: dette er starten på en af mine komponenter der indeholder en label og en listbox:

DBTable = class(TCustomControl)
private
myLabel :TLabel;
myList :TListBox;
.....

og så i din constructor placere dine egen kontroller og reagere i dine eventhandlers som du ønsker, og vupti så har du en custom komponent

(¯`·._.·[Brian Hvarregaard]·._.·´¯)



[Redigeret d. 22/04-04 11:44:32 af Brian Hvarregaard]

Det er i store træk det samme som for en ikke visuel komponent, du skal nedarve fra TCustomControl: dette er starten på en af mine komponenter der indeholder en label og en listbox:

DBTable = class(TCustomControl)
private
myLabel :TLabel;
myList :TListBox;
.....

og så i din constructor placere dine egen kontroller og reagere i dine eventhandlers som du ønsker, og vupti så har du en custom komponent

(¯`·._.·[Brian Hvarregaard]·._.·´¯)



[Redigeret d. 22/04-04 11:44:32 af Brian Hvarregaard]

hmm... Det duede så alligevel ikk...
hvis jeg skriver:

constructor Create;
begin
  with TLabel.Create(self) do
  begin
    blabla
  end;
end;  

så er der ingen fejl... men prøver jeg sådan her duer det ikke....

private
  TopLabel: TLabel;
....

constructor Create;
begin
  TopLabel := TLabel.Create(self);
  ...
end;

Det give fejlen: [Pascal Error] Border.pas(1): Unable to invoke Code Completion due to errors in source code

Nogen der ved hvad der er galt?
/Mads