[AlexandrV]

Помогите пожалуйста создать собственное диалоговое окно вот код функции

Код:

function INISDersi(TextOkno:String;TextButton1,TextButton2:String;TextMemo:String):Boolean;
begin
  Form3.DialogButtons1.CaptionOk:=TextButton1;
  Form3.DialogButtons1.CaptionCancel:=TextButton2;
  Form3.Caption:=TextOkno;
  Form3.Memo1.Lines.Text:=TextMemo;
  loadIniLData;

end;

Где именно нужно вызывать модальную форму и как ее закрыть после того как нажмеца кнопка вернув функции либо True при нажатии на ok либо False при нажатии на Отмена

[NumLock]

после/вместо loadIniLData:

Код:

  Form1.Button1.ModalResult:=mrOk;
  Form1.Button2.ModalResult:=mrCancel;
  Result:=Form1.ShowModal=mrOk;

[AlexandrV]

Код:

Form1.Button1.ModalResult:=mrOk;
Form1.Button2.ModalResult:=mrCancel;
Result:=Form1.ShowModal=mrOk;

спасибо.
Скажи что этот код делает каждая строчка что делает

loadIniLData; - процедура считывания из ини файла текстов

Код:

procedure loadIniLData;
var tyjk:Integer;
begin
  IniLData:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'LibxEditFiles\параметры Save\Language.LData');
  CodesLancLibxStrocaStr:=IniLData.ReadString('Код_Удаления_Строки_По_Коду','Код','Fred');
  CodesLancLibxStrocaInt:=Length(CodesLancLibxStrocaStr);
  codesIniLDataStr1:=codesIniLDataStr;
  MaxLancLibxStrocaInt:=IniLData.ReadInteger('Seve Language Libx','MaximumLangLibx',20);
  SetLength(DinamikIniLanguage,MaxLancLibxStrocaInt);
  for tyjk := 0 to MaxLancLibxStrocaInt do begin
    codesIniLDataStr1:=IniLData.ReadString('Seve Language Libx',codesIniLDataStr+inttostr(tyjk),'');
    codesIniLDataStr2:=codesIniLDataStr1;
    System.Delete(codesIniLDataStr2,Pos(CodesLancLibxStrocaStr,codesIniLDataStr2),length(codesIniLDataStr2));
    System.Delete(codesIniLDataStr1,1,System.Pos(CodesLancLibxStrocaStr,codesIniLDataStr1)+CodesLancLibxStrocaInt-1);
    DinamikIniLanguage[tyjk]:=codesIniLDataStr2;
    Form3.ComboBox1.Items.Add(codesIniLDataStr1);
    Form3.ComboBox1.ItemIndex:=0;
  end;
  IniLData.Free;
end;

Админ: Не забываем про оформление!

[AlexandrV]

Спасибо огромное все работает.

[AlexandrV]

Есть функция

Код:

Function ShowStateDialog1(TextForm,LBL1,LBL2,LBL3:String;LBLB2,ED2,LBLB3,ED3:Boolean):Boolean;
begin
  Form3.Label1.Caption:=LBL1;
  Form3.Label2.Caption:=LBL2;
  Form3.Label3.Caption:=LBL3;
  Form3.Caption:=TextForm;
  Form3.Label2.Enabled:=LBLB2;
  Form3.Label3.Enabled:=LBLB3;
  Form3.Edit2.Enabled:=ED2;
  Form3.Edit3.Enabled:=ED3;
end;

надо вызвать модальное окно и при если будет нажата кнопка ок вернуть функции значения. Как это сделать

[NumLock]

проверить результат ShowModal