Как передать nil в свою процедуру?

[loom12]

Здравствуйте! Подскажите пожалуйста как можно передать nil в свою процедуру.

procedure Click_Button(classwindow:string;namecaptwindow:string);
var wdh: hwnd;
begin
wdh:= findwindow (pchar(classwindow),pchar(namecaptionwindow));
end;

а мне надо вызывать Click_Button(nil;'имя окна');

[D-mon]

procedure Click_Button(classwindow:TObject;namecaptwindow:string);
var wdh: hwnd;
begin
wdh:= findwindow (pchar(classwindow),pchar(namecaptionwindow));
end;

[min@y™]

Click_Button(#0, 'имя окна');

[loom12]

Сообщение от D-mon

procedure Click_Button(classwindow:TObject;namecaptwindow:string);
var wdh: hwnd;
begin
wdh:= findwindow (pchar(classwindow),pchar(namecaptionwindow));
end;

надо универсальный вызов.
так работает
Click_Button(nil,'Имя окно');
а если надо указать имя класса окна, тогда как? Click_Button('TSearchRecConditionFr m','Имя окна');

[D-mon]

а если надо указать имя класса окна, тогда как? Click_Button('TSearchRecConditionFr m','Имя окна');

А зачем передавать имя? Передавай сразу объект окна, а с объекта можно с лёгкостью имя взять.
Click_Button(TSearchRecConditionFro m(SearchRecConditionFrom),'Имя окна');

procedure Click_Button(AForm:TObject; namecaptwindow:string);
var wdh: hwnd;
begin
wdh:= findwindow (pchar(TSearchRecConditionFrom(SearchRecConditionFrom).Name), pchar(namecaptionwindow));
end;

[Аватар]

  if classwindow='' then wdh:= findwindow (nil,pchar(namecaptionwindow))
                    else wdh:= findwindow (pchar(classwindow),pchar(namecaptionwindow));

[min@y™]

Так, я не понял, а какого хрена мой пост #3 проигнорили?

[loom12]

Click_Button(#0, 'имя окна');

Не понял как использовать

[loom12]

Сообщение от Аватар

  if classwindow='' then wdh:= findwindow (nil,pchar(namecaptionwindow))
                    else wdh:= findwindow (pchar(classwindow),pchar(namecaptionwindow));

не хочится с if потому что в процедуре на самом деле будет много функций
findwindow и findwindowex и разные имена классов

[min@y™]

Не понял как использовать

Так и использовать.
Я ж не виноват в том, что ты проверять не хочешь.
А я, вот, прогнал под отладчиком и узнал, что PChar(#0) = nil.