Lazarus 2.0.10 FPC 3.2.0 on Windows 10

I create a new application and place a TBitBtn on a panel at the bottom of the main form. I set the Kind property to bkClose.

Now I expect the application to close when I click this button, like it does on Delphi for the same type of button.

But when I run this test application it does not react to the click on this button at all!
The only way to close the program is to click the X at the upper right corner of the application window.

I even tried adding this to the OnClick event:

Close; //Does not work.
frmMain.Close;  //Does not work either

If I put a breakpoint at the OnClick event it does not even get there when debugging...

What have I missed?

I am testing methods to use transparent (see-through) forms and this test is done using code from this webpage:
http://lazplanet.blogspot.com/2013/04/make-your-forms-transparent.html

My form is made transparent via the background color but on it there is a non-transparent panel at the bottom (it does not inherit the parent color) and this is where the button is placed. Does the form's transparency block mouse clicks from non-transparent components placed on the form?

IIRC then having a button with a ModalResult on the application's main form in Delphi does not close that form.
In Lazarus it did in the past, but this was changed (long time ago), to be consistent with Delphi behaviour.

But...
If I place for instance a ShowMessage() call in the OnClick event of the button it DOES NOT show up!
And if I place a breakpoint there it too does not break.

So somehow this business of setting the form transparent robs it of any mouse event too...
Even if the control clicked on is in fact not transparent.

Sorry, can't help you with that.

PM Bart wrote

IIRC then having a button with a ModalResult on the application's main form in Delphi does not close that form.

I just tested (Delphi and Lazarus): a TBitButton with Lind = bkClose on the MainForm indeed closes the application.
Furthermore, the OnClick event handler is NOT executed in this case. This is Delphi compatible (at least compatible with Delphi 7)

On Mon, Nov 16, 2020 at 6:21 PM Bart wrote:

Can you upload a basic example (1 form, 1 bitbutton) where you set the transparency of the form.
Without actual code (also the lfm) it's hard to test.

Attaching a zip with the test code.

begin 644 TestTransparency.zip
(`/::<%&H)6P2FP(``!P(```4````5&5S=%1R86YS<&%R96YC
M>2YL<&FM54UOVD`0O5?J?["L',(AF(]+#YM&Q$"$E`04(.TAE\4,L,UZU]U= MM^'?=Q;\L3:82E4/ENS9F?=FWLRLR=U'S+U?H#23XM;OMCN^!R*2:R:VM_YR M,;[YXM]]_?R)A-/G\>0!WSR/S)3\`9&9)@:#],&&UM<CB/=*>0H(U?6#_&A& MS6X(G,"%.79)QKFH"W.W$A%MY!'3$3&.F2J"$;O)\K$4C"3^W7< ,(2]Z[C/*(<UH6G2L$]?0$M4Q7!8I\4:`JTZ[+4\'WV
M1`7;($L33NE1V-`Z3-C at -Z;4%!6<"2.3J%2Z+)D$537)?<KX^DFN07NA3(7! MMO at .B(&XZSW3&$&&L*$I-[Z7O=3R($$)570U77&F=]4Q.!V$7DVG,>/V,>AU MMF02G`4F+ZF8445CAVDL54S-);Y*[:Y0=31L\L^4*5C/:/2.<]<LF-N[S-E* MF-,_AH^5[KDQ2%MCR0_L"!>4/8?2'G1<2BN?</CJ8]WFB;L at -FN-E9KI)EN@ MQCFK4AV8NY>8-ZA^C.O73JC^%T9T#&6<2`'"N`IN5&RWNNJ9[^`]U1!RJHO9 ML3-0=;6)NWC6HP9X++9LRT'^X^46G+G=#GEB]>K_7'D+JK;@+//?6NJ,;244 MKTJJHIVE<I9B(B*>;V]FQ5]A$+1W-R.,&JI=KG,9RMWJZN
MCX3A;-FZR3^F\Y:3T6D.Y)&)=_Q_E"SU*P)-WYCH]QR#_1,)J M'&%/!R>HQI. at UIG`S8$$Y_I'AK!*M]LR43+ZB.#HD&]B_]+RNS,V&JRD,HV+ MGX7W&L-#O*>,E'RDE%0G,+TJ3+\19CQ-0)S'Z!?2E&5FZKA"H%;YG_X/4$L# (`$I7<%'DP,?^"<&%R96YC>2YL
M<')U4#UO at S`0W9'X#S<P]`.1O5&'";UV:U2Q'^O'=(N
M4:;S>_?>NSN/1G><8P12,SJ/AQ'4=Q-")Z2Y_LYT(Z0
MX at )3PMJO>YW]`F#<'@TS0'$3<+B!=')M=497S7PU<I2R:EG&D%%8K ML`=)(!7OG4#R"&&;;^%;'7"
MO.3-YW-JN,L,TNF*/7:+M\9/)PT6:.07BI!:(VEG.#X\-L;A.HB>QK&7G%FI M5?;*68_B2K/RLR7KY<]E*_<?83$,N&G:9?<4SH_;"W7ME.=0B2QL^PM02P,$ M%``"@,```P```!F;W)M;6%I;BYL9FUE4CUOPC`4
MW"OU/WACJ5`2 at H(J=2"I4*6"0#1JAZJ#DSS`C?&+'//_Z\]`PY+X[NSSW9.Q M^H5:D8,\;R at 3SZ3TJ\<'0M9P4.2%)(,#?ABC3II
"$Q/O-[$T9R#4V,BQ8P?D*#7,YA9N12&!*M#,"N79`2/LL&?^
MJ at @"NT&TA8HUI\@>Y\DF4;3.)I&- at (X>N
M at 5-'N.KIS.NCZ(0L.3N:*ZDW=^RX?7I+WWF$`=0\5V)%:W#TCDJ].Z=U>Y1X M$8T9".7]/S4<O1%*6FUE`_)@4J+ at V(/NGS.EKW+J,()L- at O,D#ST#H-8 M!!A*9//`+$5]0MEK[INV>O<3H>W>V/R$':]PH!>NKB^FE!<(XCNS#:O69 at SL M!AO*]]#K8^8%QH'7CX2SNC4'?"N+A[!W,P#1F(7]V<(`/::
M<%$^_LT;XP,``%8)```,````9F]R;6UA:6XN<&%SG55;;^(X%'Y'XC^<5I4* MLQ0H[,,(5*V`,E`M':K"+.U391)#/#5VY)R4LJC_?8_CA-NP=+5YB<_%Y^[O <-KG,#-Z`0%BV*A4)/L[E$QQ+$^EGD>AQK*G
M%Y5:];I>J?Y>6;!7?K72L;F:D;7H"@U34<@,5U at .<"$_\CFR?K&P9O7TYRST M/M87_=\2ME#(S8QYW!)QQ*-\#J`C643'DCV/5M$/%-(1-EIWZFB%1J?LGF%A M(#Q'W`IF at RS!"/T.&E*![CNFIW:,J)53G`CEZV74M)X]8F(^-YBT7CK#P?#Q MS^XSW,>'XSZ1=2()KE3X2]"8#
MDHS&SX,NL:]JU<0/U>%;K#P46L&(XX"MN.&^BZ2%:,0T1A[!0$SAG*IAZK5S M*+17?S$)P43YT"*95G-*).%UM-3FD/ED&>T5\HS!9!BP3*N82+66G" ; at G\G?JL*)C+'Z/N8[UV
MF91CK31"%!L. at 5X":K(A6`08\(@F,(TL at H"B at C_H`T at U(H[+)$I)[MC9V<=! M85T*-I;]6K:2V^=[&JV3)59WRN?OAUQ_^9T[\[ME31 at 4RO%(6H=U=*8;,J,W M1C-6,3M\6L>-Q]ZGN??^;^['4^P=I`BG<CR9D(O3)H2K,,,9PZ at X,-Q M-O0->!8F"F,+"D4K`IBBZDA-L].`<<P$1GO<
MMQ.8W>U(X;T61ISB-E9[./W)">DEUW)NVD
M:V_,6#)+J+')+9&*12CY at C"4V3H["'V$+V4Y6R2EV$9"4S:VD"MCC]0+XX`G M/8"#![NE5:+>@#L"WSDW-MPT%I8\^LU(YG-33@>7^GK_73&:EQ.80?`/K8>[ M[2LNT:/E<#^Z_0ZT)L#GR`C6;5NM<8&C<'`Y5E4X(=0,V:<?B\CNF6,M-# M`WM at G1E9,[7"P.Z]I<"`EI^%U#<F8YZ>ET)*.MIV()<K\$7$PI`S`V(&,\GF M=E,`*:;G.F1)G8+43:Q)<TII3TK7-JQL0`ZG?]ORC%_^9`K3MFXWLK<ZUMPU M(6Z6K<7:N;;U(#RVJWWG-EIH!LJ'_LP1=N7#E'FO<Z-C'T2"S73UXQ>_-P`7 M=CE6:]UN,WW><F0Q/R*FO06!R?W^RH9!EW:?AD[3?=NV7H+I;NR.U^OR% M;PHRHGUTSZ.(S7GALL^EU##11OIG&Y at HE\N7N_[H7[;_?P!02P$"%``4``(` M"`#VFG!1J"5L$IL"```<"```%``D```````!`"``````````5&5S=%1R86YS M<&%R96YC>2YL<&D*`"````````$`&`"0QZ.=1;S6`9#'HYU%O-8!D&Q^\?Z[ "%``4``(`"`!*5W!1Y,#'_@@!``"H`0``%``D```````!`"````#- <&%R96YC>2YL<'(*`"````````$`&`!P!X0"_[O6`7`'
MA`+_N]8!<("%``4``(`"`#VFG!1KG?LW6,!```.`P``#``D
M```````!`"`````'!```9F]R;6UA:6XN;&9M"@@`8*6JG46\
@I:J=1;S6`;#,2_G^N]8!4$L!`A0`%``" at D`
M``P`)<FUM86EN+G!A<PH`(````````0`8`*!?
LIIU%O-8!H%^FG46\U@'0*"#Y_KO6`5!+!08`````!``$`(@!``"A"0````!? `
end

For some reason my news reader would not transfer the zipped archive with the sources. So here goes another attempt using my email instead. Attached is the zipped project.

/Bo B

Hi Bo,

Please check the following forum post:
https://forum.lazarus.freepascal.org/index.php/topic,52155.msg383939.html#msg383939

On Mon, Nov 16, 2020 at 8:30 PM Bo Berglund via lazarus <

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20201116/3c6452b5/attachment.html>