Új hozzászólás Aktív témák

• #918 Diskcopy tag Attila1981 #917

  Új Válasz 2005-09-30 12:22:04 #918

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Attila1981 #917 üzenetére

  A dolog ott is ugyanaz...
  

  
  begin
  if RichEdit1.Modified then  
   if (Sender <> nil) and (Sender.HandleAllocated = True) and (SendMessage(Sender.Handle, EM_CANUNDO, 0, 0) = 1) then begin
      SendMessage(ActiveControl.Handle, WM_UNDO, 0, 0);
     statusbar1.text := 'undone'; 
    end;
  else statusbar1.text:='undo';
  end;
  

  
  

Új hozzászólás Aktív témák