Einzelnen Beitrag anzeigen

Benutzerbild von Flogo
Flogo

Registriert seit: 24. Mär 2003
Ort: Freiburg im Breisgau
317 Beiträge
 
Delphi 7 Professional
 
#5

Re: Combobox in der Zelle eines Stringgrids

  Alt 27. Feb 2005, 11:59
Ich hab mir jetzt aus den verschiedenen Threads folgendes zusammengebaut (Die meisten wahren ja zum DBGrid + Checkbox). Weil es bei mir viel kürzer geworden ist, als bei den meisten Beispielen wüsste ich gerne ob ich nicht irgendwas wichtiges vergessen hab.

Delphi-Quellcode:
function TStringGridEx.AddComboBox(aCol, aRow: Integer): TComboBox;
var Rect: TRect;
begin
  Result := TComboBox.Create(Owner);
  Objects[aCol, aRow] := Result;
  Result.Parent := Parent;
  Result.Color := clWindow;
  Rect := CellRect(aCol, aRow);
  Result.Left := Left + Rect.Left +2;
  Result.Top := Top + Rect.Top +2;
  Result.Width := Rect.Right - Rect.Left;
  Result.Height := Rect.Bottom - Rect.Top;
end;
If one coincidence can occur, then another coincidence can occur. And if one coincidence happens to occur just after another coincidence, then that is just a coincidence.
DNA

www.Anyxist.de
  Mit Zitat antworten Zitat