Reundo

er ikke så meget inde i delphi med

if button1.noget \\ved ikke hvad det hedder når den er trykket
then button2.enabled := true
else
buttin2.enabled := false

du kunne jo lave sådan at button1 laver enabled på en ting man ikke kan se fx en timer så kunne man jo

if timer1.enabled = true
then button2.enabled := true
else
button1.enabled := false

1. jeg vil meget gerne først have koden til at få Anuller Fortryd(ReUndo) Og det du skrev er ikke lige det!

jeg svarede på det nederste

du kunne jo lave så hvis man trkkede på den buttom vil den udføre at det vil være ctrl-z

procedure TForm1.FormCreate(Sender : TObject);
begin
  btnRedo.Enabled := False; //redo knappen sættes til false fra start
end;

procedure TForm1.btnUndoClick(Sender : TObject);
begin
  btnRedo.Enabled := True; //når man trykker undo enables redo knappen
end;

hvad er det du vil reundo? et tekstfelt, en indtastning??

Hvor kommer din undo fra? Har du en liste? Hvad er det der undo'es? Jeg synes der mangler lidt informationer... :)

ved i ikke hvad Reundo er??

Hvis det er en memo (bruger dette på SynMemo) så har jeg gjort det at jeg har lagt en timer på min form og hver gang den kører dens OnTimer så er denne kode i blandt:

If SynMemo.CanUndo then
begin
    UndoBtn.Enabled := True;
end
Else
Begin
    UndoBtn.Enabled := False;
end;


If SynMemo.CanRedo then
begin
    RedoBtn.Enabled := True;
end
Else
Begin
    RedoBtn.Enabled := False;
end;

I UndoBtn.OnClick:
    SynMemo.Undo;
I RedoBtn.OnClick:
    SynMemo.Redo;


Kaare

jeg bruger richedit og jeg fandt lige ud af at det hed Redo :)

D'oh!!! Hvorfor har du ikke sagt at det var en Richedit?!? Hvis du nu selv havde lavet en liste over undo's/redo's, så var det pludselig en anden sag... :)

hva' hermandsen.. kan du hjælpe mig med det i richedit????

Du skal faktisk bare køre Undo-procedure'n igen...

Den kører i ring på den måde at når du laver undo, så undo'er den det sidste du har lavet... Har du skrevet i RichEdit'en, så undo'er den, har du lavet en undo, undo'er den din undo... Er du med?

Øv også... Blev snydt for 0 point!!! ;)