![]() |
|
|
#61
|
||||
|
||||
|
что такое crHelp
|
|
#62
|
||||
|
||||
|
все нашёл, http://forum.sources.ru/index.php?showtopic=48392
мне такое не нужно. Ладно попробую гармонично вписать кнопку ? |
|
#63
|
||||
|
||||
|
а, нет всё таки сделаю менюшку
|
|
#64
|
||||
|
||||
|
ещё один вопрос. как сделать набор на цифровом блоке. кейпресс сделал, но нужно как-нибудь отсылать значение кей к процедуре NumberClick (смотр. код на пред. стр.)
|
|
#65
|
||||
|
||||
|
message WM_KEYDOWN;
|
|
#66
|
||||
|
||||
|
а поподробней
|
|
#67
|
||||
|
||||
|
procedure foo(var msg: TWmKeyDown); message WM_KEYDOWN;
|
|
#68
|
||||
|
||||
|
всё равно не пойму, можешь мне в код вписать
|
|
#70
|
||||
|
||||
|
да нет я не пойму как его использовать
|
|
#71
|
||||
|
||||
|
с цифровым блоком разобрался, но почему то выводит ошибки http://www.delphisources.ru/forum/at...d=134746399 0
Код:
procedure PMemSave(Sender TObject); begin mem=strtofloat(MainEdit.Text); MemPanel.Caption=mem; end; |
|
#72
|
||||
|
||||
|
Цитата:
Вот например на первой ошибке "Undeclared identifier: 'MainEdit'" кликаю F1 - получаю справку: Цитата:
Цитата:
![]() |
|
#73
|
||||
|
||||
|
Я вообще то понял что это значит, мне непонятно почему именно в этом блоке ошибка с этим полем. В других местах всё ок с ним.
|
|
#74
|
||||
|
||||
|
Цитата:
|
|
#75
|
||||
|
||||
|
MainEdit - Поле ввода вывода. Объект TEdit.
PMemSave - Procedure выполняется по нажатию клавиши MS (Memory Save). Вот например у меня процедура по нажатию клавиши C (Clean); Код:
procedure TForm1.PCE(Sender: TObject);
begin
MainEdit.Text:='0';
AEdit.Text:='0';
BEdit.Text:='0';
CEdit.Text:='0';
X1Edit.Text:='0';
X2Edit.Text:='0';
{CE}
end;О чёрт, лох я... TForm1 забыл добавить... Сори за очередной глупый вопрос. Последний раз редактировалось UnrealFire, 13.09.2012 в 13:17. |