Siema!
Mam 3 problemy :P
1:
Mam przycisk działający jako "Zapisz Jako".
Mam w nim taki kod:
procedure TForm1.Zapisz1Click(Sender: TObject);
begin
if assigned(ActiveMDIChild) then begin
savedialog1.FileName := (ActiveMDIChild as TForm2).caption;
if savedialog1.execute then begin
(ActiveMDIChild as TForm2).memo1.Lines.SaveToFile(savedialog1.filename);
end;
(ActiveMDIChild as TForm2).Caption := ExtractFileName(savedialog1.FileName);
(ActiveMDIChild as TForm2).D := ExtractFileDir(savedialog1.FileName);
end;
end;
Jak to przerobić, aby działał jako zwykłe zapisz??
2:
Mam edytor tekstu Mdi.
Co zrobić, aby jesli nie jest tekst zapisany, i chce si zamknąć formę MDiChild, to pyta czy zapisać, czy nie zapisać, czy zamknąć?
3:
Mam taki kod:
FileName:=Folder.Text + '' + 'UNeck_ENG.exe';
with MySLink do
begin
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
Directory := MyReg.ReadString('Shell Folders','Start Menu','')+ 'Dandi Software';
CreateDir(Directory);
WFileName := Directory+'\U-Neck.lnk';
MyPFile.Save(PWChar(WFileName),False);
Dodaje on do menu start Skrót do pliku "UNeck_Eng.exe".
Dlaczego tego nie robi?
Teoretycznie cośtam robi, ale w ogóle nie dodaje on skrótu do Menu Start.
No to jak się już tak rozpędziłem, to niech będzie jeszcze i czwarty :P
4:
mam taki kod pokazujący message'a:
if Q = true then
CanClose:=True else
if Q = false then
if MessageDlg('Czy napewno zakończyć?',
mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes then //czy cuś
CanClose:=True //zamyka
else
if MessageDlg('Czy napewno zakończyć?',
mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrCancel then
CanClose:=False //nie zamyka
else
if MessageDlg('Czy napewno zakończyć?',
mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrNo then
CanClose:=True;
Ale message'a pokazuje mi aż 3 razy (!).
Jak to zrobić, aby pokazywał mi on go tylko raz, i sprawdzał, który klawisz został wciśnięty??