Vererbung bestimmter Eigenschaften deaktiviern

[Hawkeye219]

Hallo delphin,

verschiebe einmal die Zuweisung zu Edit1.Visible vor das Setzen der Position bzw. Höhe. Vielleicht solltest du dem Editfeld auch noch den Fokus geben:

Delphi-Quellcode:

procedure TForm1.CheckListBoxDblClick (Sender: TObject);
Var 
  DrawRect : TRect;
begin 
  DrawRect := CheckListBox.ItemRect(CheckListBox.ItemIndex);
  Edit1.Text := CheckListBox.Items.Strings[CheckListBox.ItemIndex];
  Edit1.Visible := True;  // neu
  Edit1.Top := DrawRect.Top;
  Edit1.Height := DrawRect.Bottom - DrawRect.Top + 2;  //Zeile: *2
//  Edit1.Visible:=true;  // entfernt
  Edit1.SetFocus;  // neu
end;

Gruß Hawkeye