Delphi Forum

Kod: Tümünü seç

var
  i: Integer;
begin
 for i := 0 to ComponentCount-1 do
   if (Components[i] is TComponent)  then
    Memo1.Lines.Add(Components[i].Name);

Kod: Tümünü seç

var
  i: Integer;
begin
 for i := 0 to ComponentCount-1 do
   if (Components[i] is TComponent) and not (Components[i] is TControl) then
    Memo1.Lines.Add(Components[i].Name);

Kod: Tümünü seç

 case Length(Item.SubItems[10])>0 of
  true:caption:=Sender.Canvas.Font.Style := [fsBold];
  false:caption:=Sender.Canvas.Font.Style := [];
 end;