» Вопросы по Delphi (все версии) - часть 3

(Sender as TLabel).Caption

as осуществляет проверку является ли Sender экземпляром TLabel, экземпляром класса порожденного от TLabel или Nil. Если нет, то формируется exception.

Если я ничего не путаю, это внятно расписано в хелпе по оператору as.

Для nil exception тоже сформируется - из-за невозможности доступа к caption

Так кто же в наше время хэлпы читает

а вот если Sender это экземпляр какого-то другого класса, то вполне может и пройти, только результат получается абсолютно непредсказуемый. Например TEdit(CheckBox1).Text вернет Caption чекбокса - и не падает, а что за значение непонятно

при чем тут раздел по дельфи, тебе скорее всего либо в ексель вба, либо в андеграунд

И еще где можно прочитать как можно создавать, редактировать, просмотреть таблицы Фаербеода в Делфи.

Как сделать так, чтобы InternetExplorer работал с мои собственным протоколом?
Например, типа как "about:", "res:".

type
TMyClass = class (TObject)
class function MyValue:integer; virtual; abstract;
end;

TOurClass = class (TMyClass)
class function MyValue:integer; override;
end;

TYourClass = class of TMyClass;


class function TOurClass.MyValue:integer;
begin
result := 5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var C:TYourClass;
begin
ShowMessage (inttostr(TMyClass.MyValue)); // Wow! Error
ShowMessage (inttostr(TOurClass.MyValue)); // Wow! 5

C := TOurClass;
ShowMessage (inttostr(C.MyValue)); // Wow! 5

end;

Какая функция в дельфи разворачивает форму на весь экран?

Это в properties: WindowState := wsMaximized;

TFigure = Class
strict private
class var mCount: integer;
public
class function Draw():boolean; static;
End;

TRectangle = Class(TFigure)
public
/////
End;

class function TFigure.Draw: boolean;
begin
mCount:= mCount + 1;
MessageDlg('Draw Figure'+IntToStr(mCount), mtWarning, [mbOK], 0);
end;

Var mClas : Trectangle;
mClas2: TRectangle;
begin
mClas2:=Trectangle.Create;
mClas:=Trectangle.Create;

mClas2.Draw; //Здесь будет mCount = 1
mClas.Draw; //Здесь будет mCount = 2

mClas.Free;
mClas2.Free;