Components

[ Delphi ] – Check if a Stringgrid cell is selected

function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean;
begin
  Result := False;
  try More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Undo in memo fields

Memo1.Perform(EM_UNDO, 0, 0);
ButtonUndo.Enabled := Memo1.Perform(EM_CANUNDO, 0, 0); More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Delete all selected items of a Listbox

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...