Informationsblasen für Komponenten

[DeddyH]

Meinst Du evtl. einen Hint?

[edit] Beispiel:

Delphi-Quellcode:

procedure TFormTest.FormCreate(Sender: TObject);
const
  DEF_HINT = 'Dies ist die Komponente %s vom Typ %s.';
var
  aButton: TButton;
  aEdit: TEdit;
  aMemo: TMemo;
  aComboBox: TComboBox;
  i: integer;
begin
  //Button anlegen
  aButton := TButton.Create(self);
  aButton.Left := 10;
  aButton.Top := 10;
  aButton.Name := 'TestButton';
  aButton.Parent := self;

  //Edit anlegen
  aEdit := TEdit.Create(self);
  aEdit.Left := 100;
  aEdit.Top := 10;
  aEdit.Name := 'TestEdit';
  aEdit.Parent := self;

  //Memo anlegen
  aMemo := TMemo.Create(self);
  aMemo.Left := 10;
  aMemo.Top := 40;
  aMemo.Name := 'TestMemo';
  aMemo.Parent := self;

  //ComboBox anlegen
  aComboBox := TComboBox.Create(self);
  aComboBox.Left := 250;
  aComboBox.Top := 10;
  aComboBox.Name := 'TestComboBox';
  aComboBox.Parent := self;

  //allen Controls Hint zuweisen
  for i := 0 to ControlCount - 1 do
    begin
      Controls[i].Hint := Format(DEF_HINT, [Controls[i].Name, Controls[i].Classname]);
      Controls[i].ShowHint := true;
    end;
end;

[/edit]